home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Toolbox
/
Visual Basic Toolbox (P.I.E.)(1996).ISO
/
boxes
/
about3d
/
about.frm
< prev
next >
Wrap
Text File
|
1995-03-08
|
21KB
|
628 lines
VERSION 2.00
Begin Form frmAbout
BackColor = &H00C0C0C0&
BorderStyle = 1 'Fixed Single
ClientHeight = 5265
ClientLeft = 2475
ClientTop = 1770
ClientWidth = 6570
ClipControls = 0 'False
ControlBox = 0 'False
Height = 5670
Left = 2415
LinkTopic = "frmAbout"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5265
ScaleWidth = 6570
Top = 1425
Width = 6690
Begin CommandButton cmdOK
Caption = "&OK"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
Left = 5115
TabIndex = 16
Top = 450
Width = 1215
End
Begin Image imgIcon
Height = 480
Left = 465
Picture = ABOUT.FRX:0000
Top = 480
Width = 480
End
Begin Label lblWinSysDir
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Windows System Directory"
Height = 195
Left = 2685
TabIndex = 32
Top = 4665
Width = 2265
End
Begin Label lblWinDir
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Windows Directory"
Height = 195
Left = 2685
TabIndex = 36
Top = 4440
Width = 1605
End
Begin Label lblMisc
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Database Path:"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 195
Index = 15
Left = 1500
TabIndex = 35
Top = 4215
Width = 1110
End
Begin Label lblMisc
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Windows Directory:"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 195
Index = 14
Left = 1230
TabIndex = 34
Top = 4440
Width = 1380
End
Begin Label lblAppName
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Application Name"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 15
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 375
Index = 1
Left = -30
TabIndex = 33
Top = 105
Width = 6600
End
Begin Label lblBorder
BackStyle = 0 'Transparent
Height = 3675
Left = 210
TabIndex = 2
Top = 1380
Width = 6135
End
Begin Label lblDBCleanDate
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Last Database Cleanup Date"
Height = 195
Left = 2685
TabIndex = 3
Top = 3990
Width = 2460
End
Begin Label lblDBPath
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Database Path"
Height = 195
Left = 2685
TabIndex = 4
Top = 4215
Width = 1275
End
Begin Label lblDBVer
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Database Version"
Height = 195
Left = 2685
TabIndex = 5
Top = 3765
Width = 1515
End
Begin Label lblProgSer
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Program Serial number"
Height = 195
Left = 2685
TabIndex = 6
Top = 3540
Width = 1920
End
Begin Label lblLicensedUser
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Licensed User Name"
Height = 195
Left = 2685
TabIndex = 7
Top = 3315
Width = 1770
End
Begin Label lblGDIFree
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "FreeGDIResources"
Height = 195
Left = 2685
TabIndex = 8
Top = 3090
Width = 1620
End
Begin Label lblUserFree
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Free User Resources"
Height = 195
Left = 2685
TabIndex = 9
Top = 2865
Width = 1800
End
Begin Label lblLargestFreeBlock
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Largest Free Memory Block"
Height = 195
Left = 2685
TabIndex = 10
Top = 2640
Width = 2325
End
Begin Label lblTotalFreeMem
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Total Free Memory"
Height = 195
Left = 2685
TabIndex = 11
Top = 2415
Width = 1590
End
Begin Label lblWinMode
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Windows Mode"
Height = 195
Left = 2685
TabIndex = 12
Top = 1740
Width = 1305
End
Begin Label lblMathCo
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Math Coprocessor"
Height = 195
Left = 2685
TabIndex = 13
Top = 2190
Width = 1545
End
Begin Label lblCPU
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "CPU"
Height = 195
Left = 2685
TabIndex = 14
Top = 1965
Width = 390
End
Begin Label lblWinVer
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Windows Version"
Height = 195
Left = 2685
TabIndex = 15
Top = 1515
Width = 1470
End
Begin Label lblMisc
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Operating Mode:"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 195
Index = 0
Left = 1320
TabIndex = 17
Top = 1740
Width = 1290
End
Begin Label lblMisc
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "CPU Type:"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 195
Index = 1
Left = 1830
TabIndex = 18
Top = 1965
Width = 780
End
Begin Label lblMisc
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Free GDI Resources:"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 195
Index = 2
Left = 1110
TabIndex = 19
Top = 3090
Width = 1500
End
Begin Label lblMisc
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Math Coprocessor:"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 195
Index = 3
Left = 1275
TabIndex = 20
Top = 2190
Width = 1335
End
Begin Label lblMisc
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Total Free Memory:"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 195
Index = 4
Left = 1245
TabIndex = 21
Top = 2415
Width = 1365
End
Begin Label lblMisc
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Operating System:"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 195
Index = 5
Left = 1320
TabIndex = 22
Top = 1515
Width = 1290
End
Begin Label lblMisc
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Largest Free Memory Block:"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 195
Index = 6
Left = 630
TabIndex = 23
Top = 2640
Width = 1980
End
Begin Label lblMisc
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Free User Resources:"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 195
Index = 7
Left = 1065
TabIndex = 24
Top = 2865
Width = 1545
End
Begin Label lblMisc
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Program Serial Number:"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 195
Index = 8
Left = 945
TabIndex = 25
Top = 3540
Width = 1665
End
Begin Label lblMisc
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Licensed To:"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 195
Index = 9
Left = 1680
TabIndex = 26
Top = 3315
Width = 930
End
Begin Label lblMisc
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Last Database Cleanup:"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 195
Index = 10
Left = 900
TabIndex = 27
Top = 3990
Width = 1710
End
Begin Label lblMisc
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Windows System Directory:"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 195
Index = 11
Left = 675
TabIndex = 28
Top = 4665
Width = 1935
End
Begin Label lblMisc
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Database Version:"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 195
Index = 12
Left = 1305
TabIndex = 29
Top = 3765
Width = 1305
End
Begin Label lblCopyright
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "All Rights Reserved"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 195
Index = 1
Left = 0
TabIndex = 31
Top = 1035
Width = 6600
End
Begin Label lblCopyright
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Copyright ⌐ 1995 by Whoever Owns It"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 195
Index = 0
Left = 0
TabIndex = 30
Top = 825
Width = 6600
End
Begin Label lblVersion
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Version number"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 300
Left = 0
TabIndex = 1
Top = 525
Width = 6600
End
Begin Label lblAppName
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Application Name"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 15
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00808080&
Height = 375
Index = 0
Left = 0
TabIndex = 0
Top = 150
Width = 6600
End
End
Option Explicit
Sub cmdOK_Click ()
Unload Me
End Sub
Sub Form_Load ()
App.Title = "Your Application"
gsLicensedUser = "Whoever This Software is Licensed To"
gnProgVer = 1!
gnDBVer = 1!
gsProgSer = "0000-0000-000"
gsDataPath = CurDir$
gvDateLastCleanup = Now
MakeFrm3D Me
MakeCtl3D lblBorder
PopulateSysInfo
End Sub
Sub PopulateSysInfo ()
Dim iWinVer%, nSize%, iRet%
Dim lStatus&, lMemory&
Dim sMajor$, sMinor$, sBuffer$
Screen.MousePointer = 11
lblAppName(0).Caption = App.Title
lblAppName(1).Caption = App.Title
lblVersion.Caption = "Version " & Format$(gnProgVer, "#0.00")
Center Me
DoEvents
iWinVer = GetVersion()
lStatus = GetWinFlags()
sMajor = Format$(iWinVer And &HFF)
sMinor = Format$(iWinVer \ &H100, "00")
If lStatus And WF_WINNT Then
lblWinVer.Caption = "Microsoft Windows NT " & sMajor & "." & sMinor
Else
lblWinVer.Caption = "Microsoft Windows " & sMajor & "." & sMinor
End If
If lStatus And WF_STANDARD Then lblWinMode.Caption = "Standard"
If lStatus And WF_ENHANCED Then lblWinMode.Caption = "Enhanced"
If lStatus And WF_CPU286 Then lblCPU.Caption = "80286"
If lStatus And WF_CPU386 Then lblCPU.Caption = "80386"
If lStatus And WF_CPU486 Then lblCPU.Caption = "80486"
If lStatus And WF_80x87 Then
lblMathCo.Caption = "Present"
Else
lblMathCo.Caption = "Not Present"
End If
lMemory = GetFreeSpace(0)
lblTotalFreeMem.Caption = "" & Format$(lMemory \ 1024, "###,###,###") + "K"
DoEvents
lMemory = GlobalCompact(&HFFFFFFFF)
lblLargestFreeBlock.Caption = "" & Format$(lMemory \ 1024, "###,###,###") + "K"
If iWinVer >= &H310 Then
Dim shi As SYSHEAPINFO
shi.dwSize = Len(shi)
If SystemHeapInfo(shi) Then
lblUserFree.Caption = "" & Format$(shi.wUserFreePercent) & "%"
lblGDIFree.Caption = "" & Format$(shi.wGDIFreePercent) & "%"
End If
End If
lblLicensedUser.Caption = gsLicensedUser
lblProgSer.Caption = gsProgSer
lblDBVer.Caption = Format$("" & gnDBVer, "#0.00")
lblDBPath.Caption = LCase$(gsDataPath)
lblDBCleanDate.Caption = Format$(gvDateLastCleanup, "\a\t hh:mm \o\n mm-dd-yyyy")
lblWinDir = LCase$(WindowsDir())
nSize = 144
sBuffer = Space$(nSize + 1)
iRet = GetSystemDirectory(sBuffer, nSize)
lblWinSysDir.Caption = LCase$(Left$(sBuffer, iRet))
Screen.MousePointer = 0
End Sub
